
(setq mode-line-sys
      (substring (system-name) 0
		 (string-match "\\..+" (system-name))))



(setq default-mode-line-format
      (list "%b"
						" "
	    'mode-line-modified
						" "
	    'default-directory))




(setq mode-line-format default-mode-line-format)




(message "mode_line")
(provide 'mode_line)
